home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  708b  |  35 lines
  1. 100 rem programm zur definition eines
  2. 110 rem nlq-zeichens auf dem star nl-10
  3. 120 :
  4. 130 open 4,4
  5. 140 print#4,chr$(27)chr$(120)chr$(49);
  6. 150 print#4,chr$(27)chr$(58)chr$(0)chr$(0)chr$(0);
  7. 160 print#4,chr$(27)chr$(38)chr$(0)chr$(64)chr$(64);
  8. 170 fori=0to46
  9. 180 readm
  10. 190 print#4,chr$(m);
  11. 200 nexti
  12. 210 print#4,chr$(27)chr$(37)chr$(49)chr$(0);
  13. 220 print#4,"omega : ";
  14. 230 fori=1to10
  15. 240 print#4,chr$(64)" ";
  16. 250 next
  17. 260 print#4
  18. 270 close4:end
  19. 1000 rem daten des nlq-zeichens
  20. 1005 :
  21. 1006 rem datum fuer unterlaenge
  22. 1010 data 128
  23. 1015 :
  24. 1016 rem daten fuer 1. druckdurchgang
  25. 1020 data   0,  1,  0, 56, 64,  4,  4
  26. 1030 data 131,128,128,128,128,128,128
  27. 1040 data 128,131,  4,  4, 64, 56,  0
  28. 1050 data   1,  0
  29. 1055 :
  30. 1056 rem daten fuer 2. druckdurchgang
  31. 1060 data   0,  3,  1,113,  9,129,129
  32. 1070 data   7,  0,  0,  0,  0,  0,  0
  33. 1080 data   0,  7,129,129,  9,113,  1
  34. 1090 data   3,  0
  35.